Dosyaya Parola koymak

[Orion1]

Merhaba vba ile dosyaya parola nasıl koyabilrim?

 

[Levent Menteşoğlu]

Aktif dosyayamı yoksa başka bir dosyayamı? Gerçi her durumdada makro kaydet ile gerekli kodları elde edebilirsiniz.

 

[Orion1]

Aktif dosyayamı yoksa başka bir dosyayamı? Gerçi her durumdada makro kaydet ile gerekli dosyaları elde edebilirsiniz.

Levent bey makro kaydet yöntemi ile aktif dosyayı aşağıdaki gibi parola koyabiliyoruz.Ama bunu modüle yazıp kodu çalıştırdığımda hata veriyor.
.password seçili oluyor.

ActiveWorkbook.Password "123456"

 

[Mahmut Bayram]

ActiveWorkbook.Protect Password:="123456"

şeklinde olabilir mi hocam

 

[Orion1]

ActiveWorkbook.Protect Password:="123456"

şeklinde olabilir mi hocam

Mahmut bey teşekkür ederim. ama Bu dosya şifresi ben ise dosya açılış şifresi istiyorum.
Hani Araçlar seçeneklerden güvenlik ten açma parolası var ya onu istiyorum.

 

[Levent Menteşoğlu]

Evren bey aşağıdaki gibi bir kodla aktif dosyaya açılış şifresi ekleyebilirsiniz.

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.FullName, FileFormat:=xlNormal, _
        Password:="[B][COLOR=red]şifre[/COLOR][/B]", WriteResPassword:="[COLOR=red][B]şifre[/B][/COLOR]", ReadOnlyRecommended:=False, _
        CreateBackup:=False

 

[Orion1]

Evren bey aşağıdaki gibi bir kodla aktif dosyaya açılış şifresi ekleyebilirsiniz.

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.FullName, FileFormat:=xlNormal, _
        Password:="[B][COLOR=red]şifre[/COLOR][/B]", WriteResPassword:="[COLOR=red][B]şifre[/B][/COLOR]", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Teşekkür ederim.Levent bey
Yalnız birde salt okunur olarak açıp açmama diye 2nci bir parola soruyor parolayı girmeden dosya salt okunur olarak açılabilir
İlk parolo sorgulamasından sonra 2nci parolayı sorgulamadan dosya açılabilirmi?

 

[baydeniro]

Teşekkürler güzel bir konu daha öğrendim.