Re: Jak w *.xls usunąć autora komentarza?

Article View: pl.comp.lang.vbasic

Article #92277

Back to pl.comp.lang.vbasic Previous Next

#92277

From: Stanislaw
Date: Fri, 21 Oct 2005 17:23

33 lines
2242 bytes

> Czy jest jakiś sposób, żeby pozbyć się informacji o autorze również i z tego
miejsca?

Owszem, wykorzystaj skorygowaną procedurę podaną przez pxd74:

Sub CommentsChangeTheAuthor()

Dim C           As Comment
Dim R           As Range
Dim stComment   As String
Dim stUser      As String
Dim WS          As Worksheet

For Each WS In ActiveWorkbook.Worksheets
    If ActiveSheet.Comments.Count > 0 Then
        stUser = Application.UserName
        Application.UserName = " "
        For Each R In
ActiveSheet.Range("A1").SpecialCells(xlCellTypeComments)
            Set C = R.Comment
            stComment = Replace(C.Text, stUser & ":", "", , ,
vbTextCompare)
            C.Delete
            R.AddComment stComment
        Next R
        Application.UserName = stUser
    End If
Next WS
  
End Sub

--
Stanislaw

Technical Details

Message-ID: <1129915385.516280.44790@g14g2000cwa.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!g14g2000cwa.googlegroups.com!not-for-mail

References:

<d7b21$435806bd$3eb35d81$963@news.chello.pl> <1129844818.216627.167640@g49g2000cwa.googlegroups.com> <708c5$43589af9$3eb35d81$26394@news.chello.pl> <1129881417.961033.82360@g47g2000cwa.googlegroups.com> <1129883336.717627.107690@g43g2000cwa.googlegroups.com> <c8260$4358fbe7$3eb35d81$11403@news.chello.pl> <djav60$g9h$1@inews.gazeta.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!g14g2000cwa.googlegroups.com!not-for-mail
From: "Stanislaw" <stanislaw_@op.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Jak w *.xls usunąć autora komentarza?
Date: 21 Oct 2005 10:23:05 -0700
Organization: http://groups.google.com
Lines: 35
Message-ID: <1129915385.516280.44790@g14g2000cwa.googlegroups.com>
References: <d7b21$435806bd$3eb35d81$963@news.chello.pl> <1129844818.216627.167640@g49g2000cwa.googlegroups.com> <708c5$43589af9$3eb35d81$26394@news.chello.pl> <1129881417.961033.82360@g47g2000cwa.googlegroups.com> <1129883336.717627.107690@g43g2000cwa.googlegroups.com> <c8260$4358fbe7$3eb35d81$11403@news.chello.pl> <djav60$g9h$1@inews.gazeta.pl>
NNTP-Posting-Host: 83.175.176.33
Mime-Version: 1.0
X-Trace: posting.google.com 1129915391 20239 127.0.0.1 (21 Oct 2005 17:23:11 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 21 Oct 2005 17:23:11 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: g14g2000cwa.googlegroups.com; posting-host=83.175.176.33; posting-account=q9SwWg0AAACsZGpqQVbocTuYdhIZQRhD
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message