MS-Office-Forum

MS-Office-Forum (https://www.ms-office-forum.net/forum/index.php)
-   Windows Automatisierung (https://www.ms-office-forum.net/forum/forumdisplay.php?f=193)
-   -   Excel VB Code Begrenzung (https://www.ms-office-forum.net/forum/showthread.php?t=351832)

High-5-Fabi 16.05.2018 16:55

Excel VB Code Begrenzung
 
Hallo Leute,



ich hätte da mal eine Frage bezüglich eines Codes in Excel. Und zwar habe ich einen Code, der die Zellen schützen/locken soll, sobald man die Datei speichert und schließt. Also eine Person trägt etwas ein, speichert und schließt die Datei und der nächste, der drauf zugreift, kann die Zellen nicht mehr bearbeiten.

Jetzt habe ich nur folgendes Problem: dieser Code soll sich nur auf Zelle A1 bis I47 beziehen und nur diese Zellen locken. Die Anderen sollen nach speichern und schließen immer noch frei zum bearbeiten sein.

Das hier ist mein jetziger Code:

Code:

Private Sub Workbook_Open()
    Dim wsh As Worksheet
    Dim rng As Range
    On Error Resume Next
    For Each wsh In Me.Worksheets
      wsh.Unprotect Password:="Secret"
      wsh.Cells.Locked = False
      Set rng = wsh.UsedRange.SpecialCells(xlCellTypeConstants)
      If Not rng Is Nothing Then
          rng.Locked = True
      End If
      Set rng = wsh.UsedRange.SpecialCells(xlCellTypeFormulas)
      If Not rng Is Nothing Then
          rng.Locked = True
      End If
      wsh.Protect Password:="Secret"
    Next wsh
End Sub

Kann mir bitte jemand von euch helfen, wäre ´ne riesen Hilfe :D

Mfg Fabi

haklesoft 02.06.2018 15:18

Hallo und willkommen Fabi,

dass Du auf Deine Frage bisher keine Antwort bekommen hast wird sicherlich daran liegen, dass Du in der falschen Forumsecke fragst.

Hier geht es zu Excel und VBA.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:08 Uhr.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.