Herkese merhaba
Aşağıdaki kapanış mesajına, Tüm çalışma kitabına "Sayfa koruma yaparak kapat" komutu ilave etmek istiyorum. Bir türlü yapamadım. Mavi olan yerle sadece çalıştığım sayfayı koruma yapabiliyorum. Diğer sayfalarıda korumak için ActiveWorkbook yapıyorum olmuyor. Püf noktasını çözemedim. Yardımcı olursanız sevinirim.
Sub auto_close()
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"YAZI" & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "YAZI" & Chr(10) & Chr(10) & _
"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")
If sor = vbYes Then
For a = 1 To Sheets.Count
Sheets(a).Protect
Next
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub
Aşağıdaki kapanış mesajına, Tüm çalışma kitabına "Sayfa koruma yaparak kapat" komutu ilave etmek istiyorum. Bir türlü yapamadım. Mavi olan yerle sadece çalıştığım sayfayı koruma yapabiliyorum. Diğer sayfalarıda korumak için ActiveWorkbook yapıyorum olmuyor. Püf noktasını çözemedim. Yardımcı olursanız sevinirim.
Sub auto_close()
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÖRÜŞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"YAZI" & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "YAZI" & Chr(10) & Chr(10) & _
"Dosyanızın kaydedilmesini istiyor musunuz?", 4, "")
If sor = vbYes Then
For a = 1 To Sheets.Count
Sheets(a).Protect
Next
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub