- Katılım
- 25 Ocak 2006
- Mesajlar
- 763
- Excel Vers. ve Dili
- 2019 tr
- Altın Üyelik Bitiş Tarihi
- 04-01-2024
Kod:
Sub Kilitle()
sifre = "0"
For i = 1 To 3
Sheets(i).Protect sifre
Next i
MsgBox "Sayfalar koruma altına alındı.", 64, "FRT"
End Sub
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Kilitle()
sifre = "0"
For i = 1 To 3
Sheets(i).Protect sifre
Next i
MsgBox "Sayfalar koruma altına alındı.", 64, "FRT"
End Sub
teşekkürler.Sheets(i).Protect sifre satırını Sheets(i).Protect sifre, DrawingObjects:=False olarak değiştirin.