If sheetname = "VerificationData" Then
rem 解保護
Sheets(sheetname).Protect PassWord:="20200410"
End If
If sheetname = "VerificationData" Then
rem 保護
Sheets(sheetname).Unprotect ("20200410")
End If
If sheetname = "VerificationData" Then
rem 解保護
Sheets(sheetname).Protect PassWord:="20200410"
End If
If sheetname = "VerificationData" Then
rem 保護
Sheets(sheetname).Unprotect ("20200410")
End If
VBA語句 一、VBA語句 1.宏程序語句 運行後可 以完成一個功能。 `//給單元格a1賦值 Sub test() //開始語句 Range("a1") = 10 //程序主體 End Sub
一、判斷語句 1. iF判斷 //單條件判斷 Sub 判斷1() If Range("a1").Value > 0 Then Range("b1") = "A1的值是正數" Else R