(cache) excelおよびwordでヘッダーにユーザー名が入るようにするには？

私に聞いて！

質問する

詳細検索

-PR-

締切り済みの質問

質問:No.850872

▼

yama_x

困ってます

お気に入り投稿に追加する (0人が追加しました)

回答数2

excelおよびwordでヘッダーにユーザー名が入るようにするには？

WindowsXP Pro＋officeXPを使用しています。
excelおよびwordのヘッダーにWindowsログイン時の
ログイン名が入るようにすることは出来ないのでしょうか？

共有する機密性の高いファイルを誰が印刷したか
分かるようにしたいのですが・・・

投稿日時 - 2004-05-07 12:45:23

通報する

ブックマーク▼

メールで紹介

この質問は役に立ちましたか？

2人が「このQ&Aが役に立った」と投票しています

別のキーワードで再検索する

詳細検索

関連キーワード
ログイン
As
ユーザー名
ヘッダ
使用

回答 (2)

並び替え
新着順
支持数順

回答:No.2

▼

imogasi

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.PageSetup.LeftHeader = Application.UserName
End Sub
ではどうでしょうか。エクセルで少数テスト済み。
ThisWorkbookのSheetActivateイベントに上記をコピペする。印刷する時はSheetをActivateすると思いますが
何か抜け道（もらしている点）があるかも知れず、自信なし。Printerオブジェクトを実行する時とかの、イベントが
VBAにあればと思いますが・・。

投稿日時 - 2004-05-07 13:43:32

通報する

お礼する

この回答を支持する

(現在0人が支持しています)

回答:No.1

▼

Taketoshi

VBAが利用できると前提して回答します。
Windows APIも使っています。

●ThisWorkbookに以下のコードをコピーします。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim strUserNameBuffer As String * UNLEN
Dim lngUserNameLength As Long
Dim lngResult As Long

'ユーザー名の長さを設定
lngUserNameLength = Len(strUserNameBuffer)

'ユーザー名を取得
lngResult = GetUserName(strUserNameBuffer, lngUserNameLength)

With ActiveSheet.PageSetup
.LeftHeader = "User : " & Left(strUserNameBuffer, InStr(strUserNameBuffer, vbNullChar) - 1)
End With
End Sub

●標準モジュールを作成し、以下のコードをコピーします。
' ユーザー名を取得する関数の宣言
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

' ユーザー名の長さを示す定数の宣言
Public Const UNLEN = 256 + 1

印刷時に、ヘッダの左に、
User : xxxxxxxx(←ログインユーザ名)
が表示されます。

投稿日時 - 2004-05-07 13:14:34

通報する

お礼する

この回答を支持する

(現在0人が支持しています)

別のキーワードで再検索する

詳細検索

もっと聞いてみる

質問する

関連するQ&A

question

XPにおけるユーザ別のOfficeXP使用について1台のXPが入ったマシンで、管理者と他のユーザでOfficeXPを共有しようと思うと、管理者だ...
question

OfficeXPのWord、Excelのクリップアートについて今晩は。下記の内容を質問させてください。－－－－－－－－－－－－－－－－－－－－－－ Wi...
question

ＷｉｎｄｏｗｓＸｐ(pro)のファイル共有についてＷｉｎｄｏｗｓｘｐ（ＰＲＯ）を使用しています。共有ファイルを作成し、ネットワーク内のユーザー...

回答募集中

aunswer

エクセルのSUMPRODUCT関数についての質問SUMPRODUCT関数を使って、１列おきにカウントさせる式をつくっていて、セルの指定方法に...
aunswer

ACCESSですべての明細が一致するデータの抽出以下のような、構造が同じ２つのテーブルがあります。 2012注文テーブル会社cd 商品cd...
aunswer

AccessでテキストのデータAccessでテキストのデータをSQLServerにいれようとしてるんですがキー違反のエラーが...