我正在运行一个宏,当单元格值更改(使用密码)时,它会自动保护工作表。这个宏一直在所有打开的工作表中运行。应该是这样的。但是当我打开另一个 excel 文件时,它也会用密码保护该表。如何将我的宏限制在它所在的文件中?
谢谢!
Private Sub Worksheet_Calculate()
Dim FormulaRange As Range
Dim FormulaRange2 As Range
Dim NotSentMsg As String
Dim MyMsg As String
Dim SentMsg As String
Dim MyLimit As Double
NotSentMsg = "Niet verzonden"
SentMsg = "Verzonden"
'Above the MyLimit value it will run the macro
MyLimit = 0
'Set the range with the Formula that you want to check
Set FormulaRange2 = ActiveSheet.Range("D22")
On Error GoTo EndMacro:
For Each FormulaCell In FormulaRange2.Cells
With FormulaCell
If IsNumeric(.Value) = False Then
MyMsg = "Not numeric"
Else
If .Value > MyLimit Then
MyMsg = SentMsg
If .Offset(2, 10).Value = NotSentMsg Then
Call Mail_with_outlook2
End If
Else
MyMsg = NotSentMsg
End If
End If
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="zou82pam"
.Offset(2, 10).Value = MyMsg
ActiveSheet.Protect Password:="zou82pam", DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.EnableEvents = True
End With
Next FormulaCell
ExitMacro:
Exit Sub
EndMacro:
Application.EnableEvents = True
MsgBox "De onderstaande error is ontstaan. Neem contact op met Wouter van Leeuwen" _
& vbLf & vbLf & Err.Number _
& vbLf & Err.Description
End Sub