行レベルのセキュリティ - どのようなアプローチで、私が使用する必要があります。

Question

朝の人々、日の最後のカップル以上

私は、VBAマクロを使用してExcelの「擬似」行レベルのセキュリティを実装する方法を見つけるためにしようとしています。 私が必要とするのは、Windowsユーザーの資格情報に基づいてすべてのExcelテーブルをフィルタリングすることです。問題は、私はこの問題に取り組む方法がわからないということであり、これはこれまでのところ、私が持っている唯一のアイデアです：

1.Derive the NT account and store it in namedrange 
2. Use autofilter based on NamedRange for each table in my spreadsheet 
3. Delete/Hide the unnecessary rows ? 

例：おそらく

、ある他の方法があります私のシナリオにはより適していますが、それらを見つけることはできませんでした。 あなたが正しい方向に向けることができれば、私はそれを感謝します。 Excelで行レベルのセキュリティを実装するに

おかげ

Answer 1

これは、特定のWorkBook VBAプロジェクトの Moduleにモジュールを貼り付けることで実現できます。 .dotmとしてWorkbookを保存することを忘れないでください。

J.Chomelが言いましたように、WorkBookのパスワードをバイパスするのは最も難しいことではありません。

明らかに、ユーザーがそこからWorkBookパスワードにアクセスできないように、VBAプロジェクトをパスワードで保護する必要があります。

Private Sub Workbook_Open() 

     Dim CurrentUserName As String 
     CurrentUserName = Environ("Username") 

     Dim WorkBookPassword As String 
     'Replace password with your desired password 
     WorkBookPassword = "password" 

     Dim DataWS1 As Worksheet 
     'Replace Sheet1 with your specific sheet name 
     Set DataWS1 = ThisWorkbook.Sheets("Sheet1") 

     With DataWS1 

      .Unprotect WorkBookPassword 

      If .AutoFilterMode Then .AutoFilterMode = False 

      .UsedRange.AutoFilter Field:=3, Criteria1:=CurrentUserName 

      .Protect Contents:=True, _ 
        AllowFiltering:=False, _ 
        UserInterfaceOnly:=True, _ 
        Password:=WorkBookPassword 
     End With 

End Sub 

Answer 2

は、あなたが最初の場所でExcelでデータを取得することは避けてください。 vbaを使用してフィルタを適用すると、一部のユーザーがvbaを簡単にバイパスするためです。したがって、セキュリティとは呼ばれませんでした。