Excel Dosyasının Başka Bir Konuma Kopyalanmasının Engellenmesi Hakkında

[hsny88]

Merhaba,
Bilgisayarımda Oluşturduğum Bir Excel Dosyası Üzerinde Diğer Kullanıcılar Değişiklik Yapabilsin Fakat Dosyayı Başka Bir Yere Kopyalama Yapmasınlar ve Herkes Aynı Dosya Üzerinde Çalışsın İstiyorum, Böyle Bir Durum İçin Nasıl Bir Yöntem Uygulamayalım.

 

[ÖmerBey]

Merhaba,
Makroyla bir şeyler yapılabilir ama şunu da belirtmeliyim ki; bunu yapacak adam kodları engeller, siler yine yapacağını yapar.
Örnek makro kodu: (İlgili dosyanın ThisWorkbook kod bölümüne kopyalanacak) yol değişkenini isteğinize göre düzenleyiniz.
Not: Kodu eklemeden önce deneme yapacağınız dosyanın yedeğini almayı unutmayınız.

Private Sub Workbook_Open()
yol = "D:\Deneme"
If yol <> ThisWorkbook.Path Then
    ThisWorkbook.Save
    ThisWorkbook.ChangeFileAccess xlReadOnly
    If Dir(yol & "\" & ThisWorkbook.Name) = "" Then
        Name ThisWorkbook.FullName As yol & "\" & ThisWorkbook.Name
    Else
        Kill ThisWorkbook.FullName
    End If
    MsgBox "Bu dosyayı " & yol & " konumu dışında çalıştıramazsınız.", vbCritical
    ThisWorkbook.Close
End If
End Sub

 

[Korhan Ayhan]

Merhaba,

Dosya paylaşımı ile ilgili olarak linki inceleyebilirsiniz.

https://support.office.com/tr-tr/ar...el-bakış-3c4fb64f-bf46-42a4-9f6a-73cc6367d378

Dosyanın kopyalanmaması konusunda ise IT departmanından destek istemelisiniz.