neronas
tüm calisma sayfalarini ayni anda sifreleyebilmenin/acabilmenin yolu yok mu? tek tek yapmaktan gina geldi. (excel 2003)
tüm calisma sayfalarini ayni anda sifreleyebilmenin/acabilmenin yolu yok mu? tek tek yapmaktan gina geldi. (excel 2003)
0
acarken sifre sorsun istemiyorum. sadece bazi hücreler (formüllü olanlar)degistirilemesin istiyorum. o da olmuyor tum dosya sifrelenince
0
Sub Koru()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Protect 12345
Next i
End Sub
12345 olan şifreyi istediğiniz gibi değiştirebilirsiniz.
korumayı kaldırmak için;
Sub KorumaKaldır()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Unprotect 12345
Next i
End Sub
not: kodlar excel.web.tr'den araktır.
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Protect 12345
Next i
End Sub
12345 olan şifreyi istediğiniz gibi değiştirebilirsiniz.
korumayı kaldırmak için;
Sub KorumaKaldır()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Unprotect 12345
Next i
End Sub
not: kodlar excel.web.tr'den araktır.
0
alt + f11 yapıp visual basic sayfasına girin. insert -> module dedikten sonra (file edit view ... olan menülerden) verdiğim kodları copy paste yapın. daha sonra excel sayfasına geri dönün alt + f8 yapıp koru makrosunu çalıştırın.
0
