パスワード ブックにパスワードを設定し保存して閉じる

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][パスワード ブックにパスワードを設定し保存して閉じる]
Public Sub psbパスワード保存(Mybook As Workbook)
'*******************************************************************************
'ブックにパスワードを設定し保存して閉じる
'*******************************************************************************
Dim a As String, b As String, i As Long, MySheet As Worksheet
a = Mybook.Path: b = Mybook.Name
    With Mybook
        Call psbブック保護(Mybook)
            For i = 1 To Sheets.Count
                Set MySheet = Mybook.Sheets(i)
                    Call psbシート保護(MySheet)
                Set MySheet = Nothing
            Next i
        .SaveAs Filename:=a & "\" & b, WriteResPassword:=fncPass
        .Close
    End With
End Sub





Production Japan Import Application. Since 1998