mohmod zedan قام بنشر ديسمبر 10, 2023 مشاركة قام بنشر ديسمبر 10, 2023 (معدل) Private Sub Workbook_Open() Dim Ws As Worksheet For Each Ws In Worksheets Ws.Protect UserInterFaceOnly:=True Next End Sub تعديل في الكود لوضع رقم سري داخلة لحماية الشيت تم تعديل ديسمبر 10, 2023 بواسطه mohmod zedan رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر ديسمبر 10, 2023 أفضل إجابة مشاركة قام بنشر ديسمبر 10, 2023 Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect UserInterfaceOnly:=True, Password:="1234" Next ws End Sub 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها