Soru Excel dosyası 2 üst parent klasörde anahtar dosya olmaz ise açılmaması

[seckinb]

Merhaba,
mevcut dosyalarımın usb bellek ile taşındığında açılmaması için nasıl bir önlem alabilirim?

giriş şifresi yerine
2 üst parent klasör içerisinde XLSM ya da TXT formatlarında ilgili dosyayı izlemediği takdirde hata uyarısı verip kapanmasını sağlamak istiyorum.

Nasıl başarabilirim?

(...Main\01xx\FileFolder)
Main - Key file yerleşim yeri

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu dosyanızın ThisWorkbook kod sayfasına kopyalayın.
Dosyanız kapatıldığında Sayfa1 adlı sayfa hariç hepsi gizlenecektir.
Açıldığında eğer iki üst klasörde test.txt adlı bir dosya varsa gizlenen tüm sayfalar gösterilecektir aksi halde kullanıcı sadewce Sayfa1 i görebilir.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    SayfaGizleGoster True
End Sub

Private Sub Workbook_Open()
    Dim i As Object
    Dim Dosya As String
    Set i = CreateObject("Scripting.FileSystemObject")
    Dosya = i.GetFolder(ThisWorkbook.Path).parentfolder.parentfolder.Path & "\test.txt"
    If Dir(Dosya) <> "" Then
        SayfaGizleGoster False
    End If
    
End Sub

Sub SayfaGizleGoster(Gizle As Boolean)
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        If Gizle Then
            If syf.Name <> "Sayfa1" Then syf.Visible = xlSheetVeryHidden
        Else
            syf.Visible = xlSheetVisible
        End If
    Next
End Sub