DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect "[COLOR=red]1234[/COLOR]"
Next
End Sub