Belirli bir sayfayı paylaşılan bir sürücüye parola korumalı dosya olarak kaydetmek için bir eylem düğmesi için aşağıdaki makroyu Excel2010'da yazdım. Parola korumalı dosyayı kaydetmek için makro
Private Sub Report_Click()
Sheets("sheetname").SaveAs Filename:="\\shared_folder_path\master" & Sheets("sheetname").Range("A2"), _
FileFormat:=52, _
Password:="password", _
WriteResPassword:="password", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
sorun
Bir Çalışma zamanı hatası '1004'
Neden Range ("A2") 'de neyin bulunduğunu bilmek önemli olmayacağını anlayamıyorum. Bunun bir tarih olduğunu tahmin ediyorum ve bir eğik çizgide yasadışı olan veya hedef klasör yapısını karıştırıcı olan eğik çizgi gibi karakterler içeriyor. A2'de bir tarihiniz varsa ve bir dosya adının bir parçası olarak kullanılabilmesi için hücreyi biçimlendirdiyseniz, o zaman '.Range (" A2 ") kullanın. Tabii ki durum buysa, büyük bir hata mesajı göreceksiniz (http://i.stack.imgur.com/vBN8f.png). – Jeeped