VBA: Schutz von Tabellenblättern vor Vertauschen

Computer: Software & Programmierung Visual Basic
#1

Habe folgendes Problem bei meinem VBA Projekt:

Habe mehrere Tabellenblätter und referenziere diese im VBA-Code über den Index.
Vertauscht nun ein Benutzer, und sei es nur aus Versehen, diese Blätter läuft die Referenzierung schief und das Programm läuft aus dem Ruder.

Weiss jemand vielleicht eine Möglichkeit wie man dies verhindern kann ohne gleich das ganze Workbook zu schützen, da die Anwender ja noch Daten eingeben müssen. Oder muss ich tatsächlich eine Referenzierung über den Namen der Tabellenblätter vornehmen, was einen enormen Korrekturaufwand mit sich bringen würde?

Wäre für jede Hilfe dankbar.

#2

Habe mehrere Tabellenblätter und referenziere diese im
VBA-Code über den Index.
Vertauscht nun ein Benutzer, und sei es nur aus Versehen,
diese Blätter läuft die Referenzierung schief und das Programm
läuft aus dem Ruder.

Hi pman,
nimm anstatt z.B.:

With Worksheets(2)

dann

With Worksheets(Namen(2))

Option Explicit

Function Namen(Nr As Byte) As String
Dim N As Byte
For N = 1 To Worksheets.Count
 If "Tabelle" & CStr(Nr) = ActiveWorkbook.VBProject.VBComponents(Worksheets(N).CodeName).Name Then
 Namen = Worksheets(N).Name
 Exit For
 End If
Next N
End Function

Gruß
Reinhard