テストデータを作るのに、ExcelでユーザーIDやパスワードを作ってましたが、 暗号化が面倒になって、VBAで関数作ってみました。 これだと、楽勝。 '**************************************************************************************************** '* '* パスワードの暗号化(SHA1 → base64エンコード) '* '**************************************************************************************************** Public Function passSHA1(wkPassword As String) BYTES = CreateObject("System.Text.U