Đặt chế độ bảo vệ hoặc mở khóa bảo vệ tất cả các Sheet cùng một lúc

Trong Excel bạn có thể đặt chế độ bảo vệ cho từng Sheet bằng cách , ví dụ trong Excel 2007 , bấm menu Review > Protect Sheet .

 

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 .