10桁のランダムのパスワードを生成後、指定ファイルに対して作成したパスワードを設定したい

日本 フォーラム
, ,
1

いつもお世話になっております。
以下フォーラムの回答を参考にし10桁のランダムのパスワードの作成は実施できたのですが指定したExcelファイルに対して作成した10桁のランダムのパスワードを設定する方法がわからない状態です。

もしご存じの方がいらっしゃましたら教えていただきたいです。
宜しくお願い致します。

2

Hi @vgmadtg

Sub ProtectWorkbook(password As String)
    ThisWorkbook.Password = password
    ThisWorkbook.Save
End Sub

In the output the generated password is dispayed.Once we enter the password the excel file will open

image
image880×1531 56.3 KB

image
image967×206 9.42 KB

Output

image
image1166×812 183 KB

Hope it helps!!

3

Hi @pravallikapaluri
Thank you!
Could you please send me the sample data you used?

4

@vgmadtg

The file you want to be Protected with password need to use in the use excel file.

- Sequence
  - Assign: rnd = new Random() (Type: System.Random)
  - Assign: password = new String(Enumerable.Repeat("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", 10).Select(Function(s) s(rnd.Next(s.Length))).ToArray()) (Type: System.String)
  - Excel Application Scope
    - Path: "YourExcelFilePath.xlsx"
    - Invoke VBA
      - CodeFilePath: "C:\Path\To\ProtectWorkbook.vbs"
      - EntryMethodName: "ProtectWorkbook"
      - Parameters: password

Regards

5

@pravallikapaluri
thank you！

6

This topic was automatically closed 3 days after the last reply. New replies are no longer allowed.