wie kann ich erreichen, dass beim Entfernen des Blattschutzes einer Tabelle, die in dieser Tabelle enthaltenen Formeln in ihre Werte "umgewandelt" werden.
Für eure Hilfe besten Dank im Voraus
Mfg
Fritz
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.ProtectContents = False Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Target.Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.ProtectContents = False Then
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Target.Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Option Explicit
Dim xVar As Boolean
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.ProtectContents = True Then
xVar = True
Else
xVar = False
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If xVar = False Then Exit Sub
If ActiveSheet.ProtectContents = False Then
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Target.Select
xVar = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de