Tuy nhiên nếu như bạn muốn đặt khóa bảo vệ cho tất cả các Sheet cùng một lúc thì phải cần tới macro hoặc tiện ích phụ trợ đi kèm . Bạn có thể thực hiện bằng macro như sau .
Mở file Excel mà bạn muốn đặt mật khẩu tất cả các Sheet cùng một lúc , bấm tổ hợp phím Alt-F11 để mở cửa sổ Microsoft Visual Basic .
Bấm menu Insert > Module , bạn cần cắt dán nội dung bên dưới
Sub ProtectAll()
Dim wSheet As Worksheet
Dim Pwd As String
Pwd = InputBox(\"Vao mat khau bao ve tat ca cac Sheet \", \"Vao mat khau\")
For Each wSheet In Worksheets
wSheet.Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True
Next wSheet
End Sub
Quay trở lại Excel , bấm menu Developer > Macro và chỉ cần chạy macro có tên ProtectAll , khi ấy bạn cần đưa mật khẩu để bảo vệ là xong .
Để mở khóa tất cả các Sheet cùng một lúc thì bạn phải cần macro sau
Sub UnProtectAll()
Dim wSheet As Worksheet
Dim Pwd As String
Pwd = InputBox(\"Enter your password to unprotect all worksheets\", \"Password Input\")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Pwd
Next wSheet
If Err <> 0 Then
MsgBox \"You have entered an incorrect password. All worksheets could not \" & _
\"be unprotected.\", vbCritical, \"Incorrect Password\"
End If
On Error GoTo 0
End Sub
Để mở khóa tất cả các Sheet cùng một lúc bạn cần chạy macro có tên là UnProtectAll .