Fast geschafft und doch gescheitert....
17.04.2018 11:36:53
Peach1234
Ich habe bereits einiges durchgelesen allerdings find ich für mich keine passende Lösung :/
Nach langem hin und her, funktionierten endlich alle meine eingesetzten Makros.
Stolz wie Oskar weise ich diversen Benutzergruppen Berechtigungen zu und hoffe endlich fertig zu sein. (Inklusive Blattschutz)
Falsch gedacht die Makros starten einfach nicht mehr selbständig bzw. überhaupt nicht mehr und durch die diversen Berechtigungen weis ich mir leider auch nicht mehr zu helfen.....
Wie muss ich den Code verändert?, OHNE das Passwort im Makro zu hinterlegen UND gleichzeitig die einzelnen Berechtigungsstufen zu erhalten?
Könnt Ihr mir weiter helfen? :)
Ich wäre euch sehr dankbar.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim c As Range
Set Bereich = Range("A7:Q66")
For Each c In Target.Cells
If Not Intersect(c, Bereich) Is Nothing Then
If IsEmpty(c) Then
On Error Resume Next
Application.EnableEvents = False
c.Formula = Sheets("Formelblatt").Range(c.Address).Formula
Application.EnableEvents = True
On Error GoTo 0
End If
End If
Next c
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngDV As Range
Application.EnableEvents = False
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo 0
If rngDV Is Nothing Then Exit Sub
If Intersect(Target, rngDV) Is Nothing Then
ActiveWindow.Zoom = 90
Else
ActiveWindow.Zoom = 130
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("A4:A66")) Is Nothing Then
Target = IIf(Target = "", "x", IIf(Target = "x", "", ""))
Cancel = True
End If
End Sub